home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 August / PCWorld_2001-08_cd.bin / Software / Vyzkuste / codePad / CodePad30.exe / Syntax Definitions / vbasic.def < prev    next >
Text File  |  2000-11-08  |  4KB  |  154 lines
  1. object TPersHolder
  2.   P.Name = 'Visual Basic'
  3.   P.SyntaxBlocks = <
  4.     item
  5.       Name = 'Default'
  6.       ID = 0
  7.       FIText = 0
  8.       FIIntNum = 1
  9.       FIFloatNum = 2
  10.       FIHexNum = 3
  11.       FIDirective = 4
  12.       FISymbol = 9
  13.       UseSymbols = True
  14.       UseLineDirectives = True
  15.       UseComments = True
  16.       UseSingleLineComments = True
  17.       UseStrings = True
  18.       UseSingleLineStrings = True
  19.       UseNumbers = True
  20.       UseSuffixedIdentifiers = True
  21.       UseKeywords = True
  22.       BlockDelimiters = <>
  23.       LineDirectivePrefix = '#'
  24.       SingleLineCommentDelimiters = <
  25.         item
  26.           FontID = 5
  27.           LeftDelimiter = #39
  28.         end
  29.         item
  30.           FontID = 6
  31.           LeftDelimiter = 'rem'
  32.         end>
  33.       SingleLineStringDelimiters = <
  34.         item
  35.           FontID = 7
  36.           LeftDelimiter = '"'
  37.           RightDelimiter = '"'
  38.         end>
  39.       IdentSuffixes = <
  40.         item
  41.           LeftDelimiter = '$'
  42.         end>
  43.       KeywordSets = <
  44.         item
  45.           FontID = 8
  46.           Name = 'reserved'
  47.           Keywords = 
  48.             'addressof,and,appactivate,as,base,beep,binary,byref,byval,call,c' +
  49.             'ase,chdir,chdrive,close,compare,const,date,declare,deftype,delet' +
  50.             'esetting,dim,do,each,else,empty,end,enum,eqv,erase,error,event,e' +
  51.             'xit,explicit,false,filecopy,for,friend,function,get,gosub,goto,i' +
  52.             'f,imp,implements,input,is,kill,len,let,like,line,load,lock,loop,' +
  53.             'lset,me,mid,mkdir,mod,name,new,next,not,nothing,null,on,open,opt' +
  54.             'ion,optional,or,paramarray,print,private,property,public,put,rai' +
  55.             'seevent,randomize,redim,rem,reset,resume,return,rmdir,rset,savep' +
  56.             'icture,savesetting,seek,select,sendkeys,set,setattr,static,step,' +
  57.             'stop,string,sub,then,time,to,true,type,unload,unlock,wend,while,' +
  58.             'width,with,withevents,write,xor'
  59.         end>
  60.     end>
  61.   P.FontTable = <
  62.     item
  63.       FontID = 0
  64.       GlobalAttrID = 'Whitespace'
  65.       Font.Charset = DEFAULT_CHARSET
  66.       Font.Color = clBlack
  67.       Font.Height = -13
  68.       Font.Name = 'Courier New'
  69.       Font.Style = []
  70.     end
  71.     item
  72.       FontID = 1
  73.       GlobalAttrID = 'Integer'
  74.       Font.Charset = DEFAULT_CHARSET
  75.       Font.Color = clGreen
  76.       Font.Height = -13
  77.       Font.Name = 'Courier New'
  78.       Font.Style = []
  79.     end
  80.     item
  81.       FontID = 2
  82.       GlobalAttrID = 'Float'
  83.       Font.Charset = DEFAULT_CHARSET
  84.       Font.Color = clGreen
  85.       Font.Height = -13
  86.       Font.Name = 'Courier New'
  87.       Font.Style = []
  88.     end
  89.     item
  90.       FontID = 3
  91.       GlobalAttrID = 'Integer'
  92.       Font.Charset = DEFAULT_CHARSET
  93.       Font.Color = clGreen
  94.       Font.Height = -13
  95.       Font.Name = 'Courier New'
  96.       Font.Style = []
  97.     end
  98.     item
  99.       FontID = 4
  100.       GlobalAttrID = 'Defines'
  101.       Font.Charset = DEFAULT_CHARSET
  102.       Font.Color = clGreen
  103.       Font.Height = -13
  104.       Font.Name = 'Courier New'
  105.       Font.Style = [fsBold]
  106.     end
  107.     item
  108.       FontID = 5
  109.       GlobalAttrID = 'Comment'
  110.       Font.Charset = DEFAULT_CHARSET
  111.       Font.Color = clGray
  112.       Font.Height = -13
  113.       Font.Name = 'Courier New'
  114.       Font.Style = [fsItalic]
  115.     end
  116.     item
  117.       FontID = 6
  118.       GlobalAttrID = 'Comment'
  119.       Font.Charset = DEFAULT_CHARSET
  120.       Font.Color = clGray
  121.       Font.Height = -13
  122.       Font.Name = 'Courier New'
  123.       Font.Style = [fsItalic]
  124.     end
  125.     item
  126.       FontID = 7
  127.       GlobalAttrID = 'String'
  128.       Font.Charset = DEFAULT_CHARSET
  129.       Font.Color = clMaroon
  130.       Font.Height = -13
  131.       Font.Name = 'Courier New'
  132.       Font.Style = []
  133.     end
  134.     item
  135.       FontID = 8
  136.       GlobalAttrID = 'Reserved words'
  137.       Font.Charset = DEFAULT_CHARSET
  138.       Font.Color = clBlue
  139.       Font.Height = -13
  140.       Font.Name = 'Courier New'
  141.       Font.Style = [fsBold]
  142.     end
  143.     item
  144.       FontID = 9
  145.       GlobalAttrID = 'Delimiters'
  146.       Font.Charset = DEFAULT_CHARSET
  147.       Font.Color = clBlack
  148.       Font.Height = -13
  149.       Font.Name = 'Courier New'
  150.       Font.Style = []
  151.     end>
  152.   P.SyntaxVersion = 3
  153. end
  154.